home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / pgvw174.zip / RSB1CHAT.MRG < prev    next >
Text File  |  1992-06-24  |  22KB  |  490 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against \temp\rbbssub1.bas to produce new\rsb1chat.bas
  3. * \temp\rbbssub1.bas:  Date 6-20-1992  Size 55569 bytes
  4. * ------------[ Created 06-24-1992 22:51:54 ]------------
  5. * REPLACING old line(s) by new
  6. 117 IF ZSubParm <> -62 THEN _
  7.        IF PrevRead$ = ConfigFile$ THEN _
  8.           EXIT SUB _
  9.        ELSE PrevRead$ = ConfigFile$
  10.     CLOSE 2
  11.     ZBulletinSave$ = ZBulletinMenu$
  12.     CALL OpenWork (2,ConfigFile$)
  13.     ZCurDef$ = ConfigFile$
  14.     INPUT #2,ZWasDF$, _
  15.              ZDnldDrives$, _
  16.              ZSysopPswd1$, _
  17.              ZSysopPswd2$, _
  18.              ZSysopFirstName$, _
  19.              ZSysopLastName$, _
  20.              ZRequiredRings, _
  21.              ZStartOfficeHours, _
  22.              ZEndOfficeHours, _
  23.              ZMinsPerSession, _
  24.              ZWasDF, _
  25.              ZWasDF, _
  26.              ZUpldDir$, _
  27.              ZExpertUserDef, _
  28.              ZActiveBulletins, _
  29.              ZPromptBellDef, _
  30.              ZWasDF, _
  31.              ZMenusCanPause, _
  32.              ZMenu$(1), _
  33.              ZMenu$(2), _
  34.              ZMenu$(3), _
  35.              ZMenu$(4), _
  36.              ZMenu$(5), _
  37.              ZMenu$(6), _
  38.              ZConfMenu$, _
  39.              ZTestANSITime, _
  40.              ZWelcomeInterruptable, _
  41.              ZRemindFileXfers, _
  42.              ZPageLengthDef, _
  43.              ZMaxMsgLinesDef, _
  44.              ZDoorsAvail, _
  45.              ZWasDF$, _
  46.              ZMainMsgFile$, _
  47.              ZMainMsgBackup$
  48.     INPUT #2, WasX$, _
  49.               ZCmntsFile$, _
  50.               ZMainUserFile$, _
  51.               ZWelcomeFile$, _
  52.               ZNewUserFile$, _
  53.               ZMainDirExtension$
  54.     CALL BreakFileName (WasX$,ZWasY$,ZWasDF$,ZWasZ$,ZFalse)
  55.     IF ZWasDF$ <> "" THEN _
  56.        ZCallersFile$ = WasX$
  57.     INPUT #2, ZWasDF$
  58.     IF ZComPort$ <> "COM0" THEN _
  59.        IF NOT ZConfMode THEN _
  60.           ZComPort$ = ZWasDF$
  61.     INPUT #2, ZBulletinsOptional, _
  62.               ZModemInitCmd$, _
  63.               ZRTS$, _
  64.               ZCallersLst$, _
  65.               ZFG, _
  66.               ZBG, _
  67.               ZBorder
  68.     IF ZConfMode THEN _
  69.        INPUT #2, ZWasDF$, _
  70.                  ZWasDF$ _
  71.     ELSE INPUT #2, ZRBBSBat$ , _
  72.                    ZRCTTYBat$
  73.     INPUT #2,ZOmitMainDir$, _
  74.              ZFirstNamePrompt$, _
  75.              ZHelp$(3), _
  76.              ZHelp$(4), _
  77.              ZHelp$(7), _
  78.              ZHelp$(9), _
  79.              ZBulletinMenu$, _
  80.              ZBulletinPrefix$, _
  81.              ZWasDF$, _
  82.              ZMsgReminder, _
  83.              ZRequireNonASCII, _
  84.              ZAskExtendedDesc, _
  85.              ZMaxNodes, _
  86.              ZNetworkType
  87.     IF ZConfMode THEN _
  88.          INPUT #2, ZwasDF _
  89.     ELSE INPUT #2, ZRecycleToDos
  90.     INPUT #2,ZWasDF, _
  91.              ZWasDF, _
  92.              ZTrashcanFile$
  93.     INPUT #2,ZMinLogonSec, _
  94.              ZDefaultSecLevel, _
  95.              ZSysopSecLevel, _
  96.              ZFileSecFile$, _
  97.              ZSysopMenuSecLevel, _
  98.              ZConfMailList$, _
  99.              ZMaxViolations, _
  100.              ZOptSec(50), _   ' SECURITY FOR SYSOP COMMANDS 1
  101.              ZOptSec(51), _
  102.              ZOptSec(52), _
  103.              ZOptSec(53), _
  104.              ZOptSec(54), _
  105.              ZOptSec(55), _
  106. * ------[ first line different ]------
  107.          ZOptSec(56)      ' SYSOP 7                              ' DR062202
  108.     OldPswdFile$=ZPswdFile$                                          ' DR062202
  109.     INPUT #2,ZPswdFile$                                              ' DR062202
  110.     IF ZPswdFile$ = "NONE" THEN ZPswdFile$ = OldPswdFile$            ' DR062202
  111.     INPUT #2,ZMaxPswdChanges, _                                      ' DR062202
  112.              ZMinSecForTempPswd, _
  113.              ZOverWriteSecLevel, _
  114.              ZDoorsTermType, _
  115.              ZMaxPerDay
  116.     INPUT #2,ZOptSec(1), _   ' SECURITY FOR MAIN MENU COMMANDS 1
  117.              ZOptSec(2), _
  118.              ZOptSec(3), _
  119.              ZOptSec(4), _
  120.              ZOptSec(5), _
  121.              ZOptSec(6), _
  122.              ZOptSec(7), _
  123.              ZOptSec(8), _
  124.              ZOptSec(9), _
  125.              ZOptSec(10), _
  126.              ZOptSec(11), _
  127.              ZOptSec(12), _
  128.              ZOptSec(13), _
  129.              ZOptSec(14), _
  130.              ZOptSec(15), _
  131.              ZOptSec(16), _
  132.              ZOptSec(17), _
  133.              ZOptSec(18), _   ' MAIN COMMAND 18
  134.              ZMinNewCallerBaud, _
  135.              ZWaitBeforeDisconnect
  136.     INPUT #2,ZOptSec(19), _      ' Security for FILE COMMANDS 1
  137.              ZOptSec(20), _
  138.              ZOptSec(21), _
  139.              ZOptSec(22), _
  140.              ZOptSec(23), _
  141.              ZOptSec(24), _
  142.              ZOptSec(25), _
  143.              ZOptSec(26), _      ' FILE COMMAND 8
  144.              ZOptSec(27), _      ' SECURITY FOR UTILITY COMMANDS 1
  145.              ZOptSec(28), _
  146.              ZOptSec(29), _
  147.              ZOptSec(30), _
  148.              ZOptSec(31), _
  149.              ZOptSec(32), _
  150.              ZOptSec(33), _
  151.              ZOptSec(34), _
  152.              ZOptSec(35), _
  153.              ZOptSec(36), _
  154.              ZOptSec(37), _
  155.              ZOptSec(38), _   ' UTIL COMMAND 12
  156.              ZOptSec(46), _   ' SECURITY FOR GLOBAL COMMANDS 1
  157.              ZOptSec(47), _
  158.              ZOptSec(48), _
  159.              ZOptSec(49), _
  160.              ZUpldTimeFactor!, _
  161.              ZComputerType, _
  162.              ZRemindProfile, _
  163.              ZRBBSName$, _
  164.              ZCmdsBetweenRings, _
  165.              ZCopyrightSecs, _
  166.              ZPagingPtrSupport$
  167.     IF ZConfMode THEN _
  168.          INPUT #2, ZwasDF _
  169.     ELSE INPUT #2, ZModemInitBaud$
  170.              IF ZErrCode > 0 THEN _
  171.                 EXIT SUB
  172. * INSERTING new line(s)
  173. 1204 ' $SUBTITLE: 'VIEWCHEK -- subroutine to check for paging        ' DR062201
  174. ' $PAGE                                                              ' DR062201
  175. '                                                                    ' DR062201
  176. '  NAME    -- VIEWCHEK                                               ' DR062201
  177. '                                                                    ' DR062201
  178. '  PURPOSE -- CHECKS TO SEE IF THE USER IS BEING PAGED               ' DR062201
  179. '                                                                    ' DR062201
  180.       SUB VIEWCHEK STATIC                                            ' DR062201
  181.       ON ERROR GOTO 65000                                            ' DR062201
  182.      FILE.NME$ = "RBBS" + ZNodeID$ + "PG"                            ' DR062201
  183.      SubSave = ZSubParm : ZSubParm = 1                               ' DR062201
  184.      OPEN "I",7,FILE.NME$                                            ' DR062201
  185.      IF ZSubParm = -1 OR LOF(7) <2 THEN _                            ' DR062201
  186.      ZSubParm = SubSave : CLOSE 7 : EXIT SUB                         ' DR062201
  187.      INPUT #7,A$                                                     ' DR062201
  188.      CLOSE 7                                                         ' DR062201
  189.      CALL QuickTPut ("",1)                                           ' DR062201
  190.      CALL QuickTPut (ZFG3$ + A$ + ZEmphasizeOff$,1)                  ' DR062201
  191.      OPEN "O",7,FILE.NME$                                            ' DR062201
  192.      CLOSE 7                                                         ' DR062201
  193.      ZSubParm = SubSave                                              ' DR062201
  194.      END SUB                                                         ' DR062201
  195. * INSERTING new line(s)
  196. 5805 ' $SUBTITLE: 'VIEWSTAT - subroutine to update the view stats    ' DR062201
  197. ' $PAGE                                                              ' DR062201
  198. '                                                                    ' DR062201
  199. '  NAME    -- VIEWSTAT                                               ' DR062201
  200. '                                                                    ' DR062201
  201. '  PURPOSE -- UPDATES THE USER'S AVAILABILITY STATUS                 ' DR062201
  202. '                                                                    ' DR062201
  203.       SUB VIEWSTAT (UserPosition$) STATIC                            ' DR062201
  204.       ON ERROR GOTO 65000                                            ' DR062201
  205. ' *****************************************************************************
  206. ' * UPDATE USER'S VIEWING STATISTICS FOR VIEWING                              *
  207. ' *****************************************************************************
  208. '                                                                    ' DR062201
  209.      FILE.NME$="RBBS"+MID$("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ ' DR062201
  210.     VAL (ZNodeID$),1) + "VW"                                     ' DR062201
  211.      A$ = ZActiveUserName$                                           ' DR062201
  212.      UP$ = LEFT$(UserPosition$,1)                                    ' DR062201
  213.      IF UP$ = "A" THEN _                                             ' DR062201
  214.     A$ = A$ + "~ is available for paging on @node " + ZNodeID$ _ ' DR062201
  215.      ELSE IF UP$ = "B" THEN _                                        ' DR062201
  216.     A$ = A$ + "~ is entering a message on @node " + ZNodeID$ _   ' DR062201
  217.      ELSE IF UP$ = "C" THEN _                                        ' DR062201
  218.     A$ = A$ + "~ is reading messages on @node " + ZNodeID$ _     ' DR062201
  219.      ELSE IF UP$ = "D" THEN _                                        ' DR062201
  220.     A$ = A$ + "~ is reading bulletins on @node " + ZNodeID$ _    ' DR062201
  221.      ELSE IF UP$ = "E" THEN _                                        ' DR062201
  222.     A$ = A$ + "~ is chatting with SYSOP on @node " + ZNodeID$ _  ' DR062201
  223.      ELSE IF UP$ = "F" THEN _                                        ' DR062201
  224.     A$ = A$ + "~ has exited through the "+MID$(UserPosition$,2)+_' DR062201
  225.     " door on @node " + ZNodeID$ _                               ' DR062201
  226.      ELSE IF UP$ = "G" THEN _                                        ' DR062201
  227.     A$ = A$ + "~ is downloading a file on @node " + ZNodeID$ _   ' DR062201
  228.      ELSE IF UP$ = "H" THEN _                                        ' DR062201
  229.     A$ = A$ + "~ is uploading a file on @node " + ZNodeID$ _     ' DR062201
  230.      ELSE IF UP$ = "I" THEN _                                        ' DR062201
  231.     A$ = "SYSOP~ has exited to DOS on @node " + ZNodeID$ _       ' DR062201
  232.      ELSE IF UP$ = "J" THEN _                                        ' DR062201
  233.     A$ = A$ + "~ is scanning the files on @node " + ZNodeID$     ' DR062201
  234.      OPEN "O",7,FILE.NME$                                            ' DR062201
  235.      WRITE #7,A$                                                     ' DR062201
  236.      CLOSE 7                                                         ' DR062201
  237.      END SUB                                                         ' DR062201
  238. 5900 ' $SUBTITLE: 'VIEWUSER - subroutine to view other users         ' DR062201
  239. ' $PAGE                                                              ' DR062201
  240. '                                                                    ' DR062201
  241. '  NAME    -- VIEWUSER                                               ' DR062201
  242. '                                                                    ' DR062201
  243. '  PURPOSE -- VIEWS OTHER USERS' CURRENT POSITIONS                   ' DR062201
  244. '                                                                    ' DR062201
  245.       SUB VIEWUSER (NodeNum$) STATIC                                 ' DR062201
  246.       ON ERROR GOTO 65000                                            ' DR062201
  247. '                                                                    ' DR062201
  248. ' *****************************************************************************
  249. ' * VIEW USERS ON OTHER NODES                                                 *
  250. ' *****************************************************************************
  251. '                                                                    ' DR062201
  252.      CALL UPDTCALR ("viewed other users",1)                          ' DR062201
  253.      FILE.NME$="RBBS"+MID$("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ ' DR062201
  254.      VAL (NodeNum$),1) + "VW"                                        ' DR062201
  255.      ZSubParm = 1                                                    ' DR062201
  256.      OPEN "I",7,FILE.NME$                                            ' DR062201
  257.      IF ZSubParm = -1 THEN ViewMessage$ = ZFG1$ + "Node " + _        ' DR062201
  258.      NodeNum$ + ZFG2$ + " is awaiting next caller" : GOTO 5901       ' DR062201
  259.      INPUT #7,ViewMessage$                                           ' DR062201
  260. 5901 CLOSE 7                                                         ' DR062201
  261.      ViewMesgLen = LEN(ViewMessage$)                                 ' DR062201
  262.      FOR ViewCount = ViewMesgLen TO 1 STEP -1                        ' DR062201
  263.      IF MID$(ViewMessage$,ViewCount,1)="~" THEN _                    ' DR062201
  264.     NewMessage$ = ZFG1$ + LEFT$(ViewMessage$,ViewCount-1) + _    ' DR062201
  265.     ZFG2$ + RIGHT$(ViewMessage$,LEN(ViewMessage$)-ViewCount) : _ ' DR062201
  266.     ViewMessage$ = NewMessage$ : GOTO 5904                       ' DR062201
  267. 5902 IF MID$(ViewMessage$,ViewCount,1)="@" THEN _                    ' DR062201
  268.     NewMessage$ = LEFT$(ViewMessage$,ViewCount - 1) + ZFG3$ + _  ' DR062201
  269.     RIGHT$(ViewMessage$,LEN(ViewMessage$) - ViewCount) + _       ' DR062201
  270.     ZEmphasizeOff$ : ViewMessage$ = NewMessage$                  ' DR062201
  271. 5904 NEXT ViewCount                                                  ' DR062201
  272.      A$ = ViewMessage$                                               ' DR062201
  273.      CALL QuickTPut ("",1)                                           ' DR062201
  274.      CALL QuickTPut (A$,1)                                           ' DR062201
  275.      PAGE = 0 : FOR CountView = 1 TO 60                              ' DR062201
  276.      IF MID$(ViewMessage$,CountView,4) = "down" OR _                 ' DR062201
  277.     MID$(ViewMessage$,CountView,4) = "uplo" OR _                 ' DR062201
  278.     MID$(ViewMessage$,CountView,4) = "exit" THEN _               ' DR062201
  279.        CountView = 60 : PAGE = 1                                 ' DR062201
  280.      NEXT : IF PAGE <> 1 THEN 5910                                   ' DR062201
  281. 5905 EXIT SUB                                                        ' DR062201
  282. 5910 PAGE = 0                                                        ' DR062201
  283. 5915 A$ = ZFG1$ + "Would you like to page " + ZFG3$ + "node" + _     ' DR062201
  284.     NodeNum$ + ZFG1$ + " to exit to The Chat DOOR ( " + _        ' DR062201
  285.     ZFG4$+ "Y" +ZFG1$+")es, " + ZEmphasizeOn$ + "[N]" + ZFG1$ + _' DR062201
  286.     "o )" + ZEmphasizeOff$                                       ' DR062201
  287.      SubParm = 1                                                     ' DR062201
  288.      CALL QuickTPut (A$,0) : ZOutTxt$ = ""                           ' DR062201
  289.      CALL TGET                                                       ' DR062201
  290.      IF ZYES THEN 5920                                               ' DR062201
  291.      GOTO 5905                                                       ' DR062201
  292. 5920 FILE.NME$="RBBS"+MID$("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ ' DR062201
  293.     VAL (NodeNum$),1) + "PG"                                     ' DR062201
  294.      CALL UPDTCALR ("paged node " + NodeNum$ + " to chat",1)         ' DR062201
  295.      OPEN "O",7,FILE.NME$                                            ' DR062201
  296.      PRINT #7, ZActiveUserName$ + " from node " + ZNodeID$+ _        ' DR062201
  297.     " wants to chat in The Chat DOOR."                           ' DR062201
  298.      CLOSE 7 : GOTO 5905                                             ' DR062201
  299.      END SUB                                                         ' DR062201
  300. * REPLACING old line(s) by new
  301. 13670 LSET ZCallersRecord$ = WasX$
  302. * ------[ first line different ]------
  303.       CalrNode$ = ZCallersRecord$                                    ' DR062202
  304.       WHILE RIGHT$(CalrNode$,1)=" "                                  ' DR062202
  305.       CalrNode$ = LEFT$(CalrNode$,LEN(CalrNode$) - 1)                ' DR062202
  306.       WEND                                                           ' DR062202
  307.       CalrNode$ = CalrNode$ + " on node " + ZNodeID$                 ' DR062202
  308.       CALL Printit (CalrNode$)                                       ' DR062202
  309.       ZCallersFileIndex! = ZCallersFileIndex! + 1
  310. * REPLACING old line(s) by new
  311. 65000 IF ZDebug THEN _
  312.          ZOutTxt$ = "RBBSSUB1 DEBUG Error Trap Entry ERL=" + _
  313.               STR$(ERL) + _
  314.               " ERR=" + _
  315.               STR$(ERR) : _
  316.          IF ZPrinter THEN _
  317.             CALL Printit(ZOutTxt$) _
  318.          ELSE CALL LPrnt(ZOutTxt$,1)
  319.       ZErrCode = ERR
  320. '
  321. '     SetCall
  322. '
  323.       IF ERL = 108 THEN _
  324.          CALL PScrn ("Unable to create callers log " + ZCallersFile$) : _
  325.          SYSTEM
  326.       IF ERL = 110 THEN _
  327.           RESUME NEXT
  328. '
  329. '     OPEN CONFIG FILE
  330. '
  331.        IF ERL => 117 AND ERL <= 119 THEN _
  332.           RESUME NEXT
  333. '
  334. '     OPEN COM PORT ERROR HANDLING
  335. '
  336.       IF ERL = 200 THEN _
  337.          CLS : _
  338.          CALL PScrn (ZComPort$ + " does not exist/not responding- Error" + STR$(ERR)) : _
  339.          STOP
  340. * ------[ first line different ]------
  341. '                                                                    ' DR062201
  342. '     ViewChek ERROR HANDLING                                        ' DR062201
  343. '                                                                    ' DR062201
  344.        IF ERL = 1204 AND (ERR = 53 OR ERR = 52) THEN _               ' DR062201
  345.       ZSubParm = -1 : _                                          ' DR062201
  346.       RESUME NEXT                                                ' DR062201
  347. '
  348. '     GetCom ERROR HANDLING
  349. '
  350.        IF ERL = 1420 AND ERR = 57 THEN _
  351.           RESUME NEXT
  352.        IF ERL = 1420 AND ERR = 69 THEN _
  353.           ZSubParm = -1 :_
  354.           RESUME NEXT
  355. '
  356. '      OPENRESEQ ERROR HANDLING
  357. '
  358.        IF ERL = 1480 OR ERL = 1487 THEN _
  359.            ZErrCode = ERR : _
  360.            RESUME NEXT
  361. '                                                                    ' DR062201
  362. '      ViewStat ERROR HANDLING                                       ' DR062201
  363. '                                                                    ' DR062201
  364.     IF ERL = 5805 AND _                                          ' DR062201
  365.        (ERR = 55 OR (ERR = 75 AND ZShareIt)) THEN _              ' DR062201
  366.           CALL DelayTime (30) : _                                ' DR062201
  367.           RESUME                                                 ' DR062201
  368. '                                                                    ' DR062201
  369. '      ViewUser ERROR HANDLING                                       ' DR062201
  370. '                                                                    ' DR062201
  371.     IF ERL = 5900 AND ERR = 52 THEN _                            ' DR062201
  372.        CALL DelayTime (30) : _                                   ' DR062201
  373.        RESUME                                                    ' DR062201
  374.     IF ERL = 5900 AND ERR = 53 THEN _                            ' DR062201
  375.        ZSubParm = -1 : _                                         ' DR062201
  376.        RESUME                                                    ' DR062201
  377. '
  378. '      OpenUser ERROR HANDLING
  379. '
  380.        IF ERL = 9400 AND ERR = 75 AND ZShareIt THEN _
  381.           CALL DelayTime (30) : _
  382.           RESUME
  383. '
  384. '      FindUser ERROR HANDLING
  385. '
  386.        IF ERL = 12610 OR ERL = 12600 THEN _
  387.           RESUME NEXT
  388. '
  389. '     UpdtCalr ERROR HANDLING
  390. '
  391.        IF ERL = 13663 THEN _
  392.           RESUME NEXT
  393.        IF ERL = 13672 AND ERR = 61 THEN _
  394.           CALL QuickTPut1 ("Disk Full") : _
  395.           IF ZDiskFullGoOffline THEN _
  396.              GOTO 65010 _
  397.           ELSE RESUME NEXT
  398.        IF ERL = 13672 THEN _
  399.           ZCallersFileIndex! = ZCallersFileIndex! - 1 : _
  400.           RESUME NEXT
  401. '
  402. '     ZPrinter ERROR HANDLING
  403. '
  404.        IF ERL = 13674 THEN _
  405.           ZPrinter = ZFalse : _
  406.           RESUME
  407. '
  408. '      ChangeDir ERROR HANDLING
  409. '
  410.        IF ERL = 20103 THEN _
  411.           ZOK = ZFalse : _
  412.           RESUME NEXT
  413. '
  414. '     FindIt ERROR HANDLING
  415. '
  416.        IF ERL = 20221 THEN _
  417.           RESUME NEXT
  418.        IF ERL = 20223 AND ZErrCode = 58 THEN _
  419.           ZErrCode = 64 : _
  420.           ZOK = ZFalse : _
  421.           RESUME NEXT
  422.        IF ERL = 20223 AND ZErrCode = 76 THEN _
  423.           CALL LPrnt("Bad path.  File name is " + FilName$,1) : _
  424.           ZErrCode = 76 : _
  425.           ZOK = ZFalse : _
  426.           RESUME NEXT
  427.        IF ERL => 20221 AND ERL <= 20223 AND ZErrCode = 70 _
  428.           AND ZNetworkType = 6 THEN _
  429.              ZErrCode = 0 : _
  430.              RESUME NEXT
  431.        IF ERL => 20221 AND ERL <= 20223 THEN _
  432.           RESUME
  433. '
  434. '     FlushCom ERROR HANDLING
  435. '
  436.        IF ERL = 20311 AND ERR = 57 THEN _
  437.           RESUME NEXT
  438.        IF ERL = 20311 AND ERR = 69 THEN _
  439.           ZAbort = ZTrue : _
  440.           ZSubParm = -1 : _
  441.           RESUME NEXT
  442. '
  443. '     NetBIOS ERROR HANDLING
  444. '
  445.        IF ERL => 29900 AND ERL <= 29920 THEN _
  446.           RESUME NEXT
  447. '
  448. '     UpdateC ERROR HANDLING
  449. '
  450.       IF ERL => 43050 AND ERL <= 43060 AND ERR = 61 THEN _
  451.          ZOutTxt$ = "* Disk full - terminating *" : _
  452.          ZSubParm =2 : _
  453.          CALL TPut : _
  454.          IF ZDiskFullGoOffline THEN _
  455.            GOTO 65010 _
  456.          ELSE SYSTEM
  457. '
  458. '     CheckInt ERROR HANDLING
  459. '
  460.        IF (ERL = 59652 OR ERL = 59727) AND ERR = 24 THEN _
  461.           ZNotCTS = ZTrue : _
  462.           CALL Line25 : _
  463.           ZErrCode = 0 : _
  464.           RESUME
  465.        IF ERL => 52000 AND ERL <= 59725 THEN _
  466.           RESUME NEXT
  467. '
  468. '     FindFile ERROR HANDLING
  469. '
  470.        IF ERL = 59791 THEN _
  471.           IF ERR <> 57 THEN _
  472.              RESUME NEXT _
  473.           ELSE IF ERR = 57 THEN _
  474.              CALL DelayTime (1) : _
  475.              CALL UpdtCalr ("SLOW I/O ERROR",1) : _
  476.              IOErrorCount = IOErrorCount + 1 : _
  477.              IF IOErrorCount < 11 THEN _
  478.                 RESUME
  479. '
  480. '     CATCH ALL OTHER ERRORS
  481. '
  482.        ZOutTxt$ = "RBBS-SUB1 Untrapped Error" + _
  483.             STR$(ERR) + _
  484.             " in line" + _
  485.             STR$(ERL)
  486.        CALL QuickTPut1 (ZOutTxt$)
  487.        CALL UpdtCalr (ZOutTxt$,2)
  488.        RESUME NEXT
  489. '     SHARED ROUTINE FOR GOING OFF LINE WHEN DISK FULL
  490.